100 GOTO200
110 INPUT#1,F1,F$,F2,F3:IFF1=0THENRETURN
120 PRINTF1;F$,F2;F3:END
130 IFNO+EN>=CTHENRETURN
131 SYS53056,0,2,2,23,18:NO=NO+1
135 POKE214,23:POKE211,2:SYS58732:PRINTNA$(ZU(NO+EN-1));:RETURN
140 IFNO=0THENRETURN
141 SYS53056,1,2,2,23,18:NO=NO-1
145 POKE214,2:POKE211,2:SYS58732:PRINTNA$(ZU(NO+1)):RETURN
200 POKE53280,6:POKE53281,6
201 PRINT"[147][158]"TAB(9)"EPLOX'S DIRECTORY-SORT"
202 PRINTTAB(8)"------------------------":IFDG=1THEN210
203 PRINT" F1  EINTRAG MARKIEREN/EINORDNEN"
204 PRINT" F2  TRENNSTRICH ERZEUGEN"
205 PRINT" F3  AUF"
206 PRINT" F4  LOESCHEN"
207 PRINT" F5  AB"
208 PRINT" F8  SPEICHERN"
209 PRINT "   BITTE DISKETTE EINLEGEN":DG=1:POKE198,0:WAIT198,63:GOTO201
210 OPEN1,8,15,"I":DIMAN$(145),NA$(145),RE$(145),ZU(146),SN(19)
215 FORI=1TO18:READSN(I):NEXT
218 FORI=52992TO53242:READX:POKEI,X:NEXT
219 GOSUB110:OPEN2,8,2,"#":GOSUB110
220 S=1:C=1:N$=CHR$(0):NN$=N$+N$+N$
223 FORI=1TO10:NU$=NU$+NN$:NEXT
225 AN$(0)=CHR$(128)+CHR$(18)+CHR$(1):NA$(0)="----------------"
226 RE$(0)=NN$+NN$+NN$+N$+N$
230 PRINT#1,"U1 2 0 18"S:PRINT"[150]"S"[157] "
235 GET#2,T$:GET#2,S$:S=ASC(S$+N$)
240 FORBP=0TO7:PRINT#1,"B-P 2";BP*32+2
270 SYS52992,2,3,X$:AN$(C)=X$:IFLEFT$(X$,1)=N$THENNEXT:GOTO320
290 SYS52992,2,16,X$:NA$(C)=X$:SYS52992,2,11,X$:RE$(C)=X$
300 ZU(C)=C:PRINT""C"[157] ":C=C+1:NEXT
320 IFT$<>""THEN230
400 CLOSE2:POKE650,128:PRINT"[144]>[159][145]";:CP=2:NO=0:EN=C:IFEN>23THENEN=23
410 PRINTCHR$(13)TAB(2)NA$(NU+1);:NU=NU+1:IFNU<EN-1THEN410
440 GETTA$:IFTA$=""THEN440
450 IFTA$="[134]"THENIFCP>2THENCP=CP-1:SYS53056,0,2,0,23,0
455 IFTA$="[134]"THENIFCP=2THENGOSUB140
460 IFTA$="[135]"THENIFCP<ENTHENCP=CP+1:SYS53056,1,2,0,23,0
465 IFTA$="[135]"THENIFCP>=23THENGOSUB130
470 IFTA$="[133]"THEN1000
480 IFTA$="[137]"THENIFC<145THENF=1:C=C+1:PRINT"[150]"C-1"[157] [159]":EN=EN+1:IFEN>23THENEN=23
485 IFTA$="[137]"THENIFF=1THENF=0:TE=0:TE$=NA$(0):GOTO1010
490 IFTA$="[140]"THEN3000
495 IFTA$=""THEN3040
500 GOTO440
1000 TE=ZU(NO+CP-1):TE$=NA$(TE)
1005 SYS53056,0,CP,2,23,18:IFC>23THENEN=EN+1:GOSUB135:EN=EN-1
1007 FORI=NO+CP-2TOC-1:ZU(I+1)=ZU(I+2):NEXT
1010 POKE214,CP:POKE211,19:SYS58732
1020 PRINT"[163][163]"TE$
1040 GETTA$:IFTA$=""THEN1040
1050 IFTA$="[134]"THENIFCP>2THENCP=CP-1:SYS53056,0,2,19,24,37:SYS53056,0,2,0,23,0
1055 IFTA$="[134]"THENIFCP=2THENGOSUB140
1060 IFTA$="[135]"THENIFCP<ENTHENCP=CP+1:SYS53056,1,2,19,24,37:SYS53056,1,2,0,23,0
1065 IFTA$="[135]"THENIFCP=23THENGOSUB130
1070 IFTA$="[133]"THEN2000
1075 IFTA$="[138]"THENTE$="":C=C-1:EN=C:IFEN>23THENEN=23
1076 IFTA$="[138]"THENPRINT"[150]"C-1"[157] [159]":GOTO2050
1080 GOTO1040
2000 SYS53056,1,CP,2,23,18
2040 FORI=C-1TONO+CP-1STEP-1:ZU(I+1)=ZU(I):NEXT:ZU(NO+CP-1)=TE
2050 POKE214,CP:POKE211,2:SYS58732
2060 PRINTTE$"                   "
2199 GOTO440
3000 OPEN2,8,2,"#":T=18:FORI=0TOINT((C-2)/8):IF8*I+8>=C-1THENT=0
3010 PRINT#1,"B-P 2 0":PRINT#2,CHR$(T)CHR$(SN(I+2))
3020 FORBP=0TO7:PRINT#1,"B-P 2";BP*32+2
3023 IFBP+8*I+1>=CTHENPRINT#2,NU$;:NEXT:GOTO3030
3025 PRINT#2,AN$(ZU(BP+8*I+1))NA$(ZU(BP+8*I+1))RE$(ZU(BP+8*I+1));:NEXT
3030 PRINT#1,"U2 2 0 18"SN(I+1):PRINT"[150]"TAB(36)SN(I+1)"[157] [159]":GOSUB110:NEXT
3040 CLOSE1:CLOSE2:RUN
10000 DATA1,4,7,10,13,16,2,5,8,11,14,17,3,6,9,12,15,18
10001 DATA32,253,174,32,158,183,32,30,225,32,253,174,32,158,183,138,72,32,253
10002 DATA174,32,139,176,133,73,132,74,32,163,182,104,32,117,180,160,2,185
10003 DATA97,0,145,73,136,16,248,200,32,18,225,145,98,200,196,97,208,246,32
10004 DATA204,255,96,0,0,0,0,0,32,245,207,138,72,32,245,207,224,0,176,3,76
10005 DATA72,178,224,24,176,249,134,251,32,245,207,224,0,144,240,224,39,176
10006 DATA236,134,253,32,245,207,224,25,176,227,134,252,232,138,56,229,251
10007 DATA144,218,240,216,133,250,32,245,207,224,40,176,207,228,253,144,203
10008 DATA134,254,104,170,165,172,72,165,173,72,165,174,72,165,175,72,224,0
10009 DATA208,22,166,251,198,250,240,44,32,240,233,232,189,240,236,133,172
10010 DATA181,217,32,219,207,48,236,202,240,3,76,72,178,166,252,198,250,240
10011 DATA16,32,240,233,202,189,240,236,133,172,181,217,32,219,207,48,236,164
10012 DATA254,32,240,233,32,36,234,169,32,145,209,136,196,253,16,249,76,88
10013 DATA233,41,3,13,136,2,133,173,32,224,233,164,254,177,172,145,209,177
10014 DATA174,145,243,136,196,253,16,243,96,32,253,174,76,158,183